unit MultiClassMethod_dxLayoutControl;

interface
uses
  Classes,{$IF CompilerVersion<16}
  Graphics,
  {$ELSE}
  VCL.Graphics,
  {$IFEND}
  acroMultiClassMethod;

implementation

uses
  dxLayoutControl,dxLayoutContainer;

procedure Proc_TdxLayoutItem(ATable:IDataLocate; AComponent:TObject;
  ALCID,ASeqNo:String; AParams:TStringList);
begin
  TdxLayoutItem(AComponent).Caption:=GetDisplayValue(ATable,TdxLayoutItem(AComponent).Caption,ALCID,ASeqNo,
    TdxLayoutItem(AComponent),'Caption');
end;

initialization
  AcroClassMethodStorage.RegisterClassMethod(TdxLayoutItem, Proc_TdxLayoutItem,nil,nil);
finalization
  AcroClassMethodStorage.UnRegisterClassMethod(TdxLayoutItem);
end.
